op_eq_VS_VS Function

private elemental function op_eq_VS_VS(string_a, string_b) result(op_eq)

Compare (==) two varying strings

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string_a
type(varying_string), intent(in) :: string_b

Return Value logical


Source Code

  elemental function op_eq_VS_VS (string_a, string_b) result (op_eq)

    type(varying_string), intent(in) :: string_a
    type(varying_string), intent(in) :: string_b
    logical                          :: op_eq

    op_eq = char(string_a) == char(string_b)

! Finish

    return

  end function op_eq_VS_VS